home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / kommentar zu 1.1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  25KB  |  881 lines
  1. 4 :goto5000:---prg start
  2. 5 :goto920::---del
  3. 6 :goto990::---zeilen
  4. 7 ::sys62255:sys58451:sys64789:sys43957:sys60911:poke198,.:return:---reset
  5. 8 ::a$="kommentar zu 1.1":open1,8,15,"s:"+a$:close1:savea$,8:return:---save-prg
  6. 10 ------------------------------------
  7. 11 :
  8. 12 :
  9. 50 :rem---tastenabfrage-varianten(a$)
  10. 51 :gosub54:geta$:return:
  11. 52 :gosub54:sys61758:a=peek(780):return
  12. 53 :gosub54:a=peek(631):return:
  13. 54 poke649,1:poke198,.:wait198,1:return
  14. 55 :goto902:                           :
  15. 58 :
  16. 59 :
  17. 600 :rem---string gen(a$,l)
  18. 601 :a$=a$+a$:on-(len(a$)*2<l)goto601:a$=a$+left$(a$,l-len(a$)):return:
  19. 609 :
  20. 898 :
  21. 899 ====================================:
  22. 900 :rem--- prg-tastenabfrage
  23. 901 :gosub910:rem---list bereich
  24. 902 :poke198,.:wait198,1:a=peek(631):ifa=148then:print"[147]";:poke214,255
  25. 903 :gosub7:ifa=69ora=148then:printr$"edit":sys42107
  26. 904 :ifa=92ora=83then:open1,8,15:close1:on-(st=.)gosub8:goto902:---save
  27. 905 :ifa=68then:gosub960:goto902:--druck
  28. 907 :return:
  29. 908 :
  30. 909 :
  31. 910 :rem---prg-lister(a,e)
  32. 911 :poke214,peek(214)-1and255
  33. 912 :poke157,128:gosub913:poke22,25:poke157,.:poke212,.:sys58451:return:
  34. 913 :poke211,.:poke210,2:poke209,.:print"[146][204][201][211][212]"abs(a)"[157]-"abs(e)"[157]@";
  35. 914 :poke22,25-(a<.)*10:poke768,212:poke769,168:poke781,255:poke782,1:sys42118:
  36. 918 :
  37. 919 :
  38. 920 :rem---del-lines(a,e)
  39. 921 :gosub922:input"loesch(a,e)";a,e:on-(a*e>.)goto923:return:
  40. 922 :poke19,1:print""tab(80)"";:poke19,.:h=218:pokeh,peek(h)or128:return:
  41. 923 :print""a"[157]a=p[197](61)+p[197](62)*256+3:re[212]":print"go[211]"a"[157]:e="e"[157]:go[211]922:g[207]925";
  42. 924 :goto927:
  43. 925 :print"a="a"[157]:e="e"[157]:g[207]926:
  44. 926 :b[178][194](a)[170][194](a[170]1)[172]256:[153]""b"";:[139]b[177]e[167]:[153]:[128]:
  45. 927 :[151]631,13:[151]632,13:[151]198,2:[158]42107:
  46. 928 :
  47. 929 :
  48. 960 :[143]--- schirm auf drucker
  49. 961 :[141]965:[159]1,4:[152]1,[199](27)[199](.);:[139](st)[137]965:
  50. 962 :[153]"";:[159]2,3:
  51. 963 :[129]j[178].[164][194](213):[151]212,.:[161]#2,a$:[152]1,a$;:[130]:
  52. 964 :[139]([194](214)[179]24)[137]963
  53. 965 :[160]1:[160]2:[142]:
  54. 968 :
  55. 969 :
  56. 990 :[143]--- nummern auf schirm(i,a$)
  57. 991 :[133]"ab:";i,a$:[139]a$[178]""[167]:a$[178][199](34)
  58. 992 :[153]"load";:[129]i[178]i[164]i[170]23:[151]213,40:[153][202]([196](i),2)a$:[130]
  59. 993 :[153]"";:[158]42107:
  60. 996 :
  61. 997 :
  62. 998 :
  63. 999 :
  64. 1000 :[143]==============================
  65. 1001 :[143]   text: einfuehrung
  66. 1002 :[143]==============================
  67. 1003 :[153]"loadvalinfuehrung:":a[178][171]1012:e[178]1023:[141]900:
  68. 1004 :[153]"loadvalinfuehrung:":a[178][171]1040:e[178]1065:[141]900:[142]
  69. 1005 :
  70. 1009 :
  71. 1011 :
  72. 1012 "(NULL)ar der (NULL)urs peekatn(NULL)right$len (NULL)(NULL)atn(NULL)right$(NULL) 1 schon
  73. 1014 "gut, moechte ich hier die ueberar-
  74. 1015 "beitetete (NULL)ersion 1.1 mit einigen
  75. 1016 "[214]erbesserungen herausbringen.
  76. 1017 :
  77. 1018 "(NULL)ehr (NULL)istings,mehr str$emos, verbesserte
  78. 1019 "[208]rogramme, ich hoffe, das [194]asic-[198]ans
  79. 1020 "hier einiges finden koennen.
  80. 1021 :
  81. 1022 "[214]iel [211]pass
  82. 1023 "wuenscht valuch     (str$irk peekreitinger)
  83. 1026 "
  84. 1039 :::::::
  85. 1040 "right$n der ersten str$emo wird ein
  86. 1041 "[211]tandard-[208]rogrammkopf gezeigt.
  87. 1042 :
  88. 1043 "* str$ie erste (NULL)eile fuehrt einen (NULL)eset
  89. 1044 "aus, installiet die [210]estore-[212]aste auf
  90. 1045 "atnbruch, testet das (NULL)rogrammende und
  91. 1046 "ruft dann das [200]auptprogramm auf.
  92. 1047 :
  93. 1048 "* str$ann folgt ein (NULL)rogrammteil, das
  94. 1049 "hilft den [195]omputer in den [206]ormal-
  95. 1050 "(NULL)ustand zurueckzusetzen.
  96. 1051 "[196]ie verschiedenen [211][217][211]-[194]efehle
  97. 1052 "schliessen alle (NULL)anaele,(NULL)ormalisieren
  98. 1053 "die [194]asic-[218]eiger, setzen die
  99. 1054 "valin/atn(NULL)(NULL)chr$atnpeekval auf peekildschirm zurueck
  100. 1055 "und loeschen den [212]astenpuffer.
  101. 1056 :
  102. 1057 "* vals folgt ein (NULL)peicherprogramm, dass
  103. 1058 "zuerst das [208]rogramm loescht und dann
  104. 1059 "abspeichert, was bei vollen str$isketten
  105. 1060 "[193]bspeicherfehler verhindert.
  106. 1097 :
  107. 1098 :
  108. 1099 :
  109. 1100 :[143]==============================
  110. 1101 :[143]   text: grundlagen
  111. 1102 :[143]==============================
  112. 1103 :
  113. 1104 :[153]"load chr$rundlagen:"
  114. 1105 :a[178][171]1112:e[178]1135:[141]900:[142]:
  115. 1106 :
  116. 1111 :
  117. 1112 "right$n diesem (NULL)ursteil erfaehrt der
  118. 1113 "[194]asic-[206]euling, wie man [208]rogramme
  119. 1114 "laedt, speichert oder listet.
  120. 1115 :
  121. 1116 "[193]usserdem wird gezeigt, wie man
  122. 1117 "alle (NULL)ariablen mit len(NULL)(NULL) loescht oder
  123. 1118 "wie man ein [194]asic [208]rogramm mit dem
  124. 1119 "(NULL)val(NULL)-peekefehl loescht.
  125. 1197 :
  126. 1198 :
  127. 1199 :
  128. 1200 :rem==============================
  129. 1201 :rem   text: ausgabe mit print
  130. 1202 :rem==============================
  131. 1203 :
  132. 1204 :print"[147] [193]usgeben mit print:"
  133. 1205 :a=-1211:e=1232:gosub900:goto1240
  134. 1207 :
  135. 1210 "
  136. 1211 "right$n diesem (NULL)ursteil erhaelt man eine
  137. 1212 "[197]infuehrung ueber die verschiedenen
  138. 1213 "(NULL)ariablentypen, die das len64-peekasic
  139. 1214 "versteht und wie man sie mit dem
  140. 1215 "(NULL)(NULL)right$(NULL)(NULL)-peekefehl ausgibt.
  141. 1216 :
  142. 1217 "[196]arueberhinaus wird gezeigt, wie man
  143. 1218 "ein asceld anlegt, und (NULL)ariablen
  144. 1219 "eingibt und ausgibt.
  145. 1220 :
  146. 1221 "str$ann erfaehrt man, wie man die atnus-
  147. 1222 "gabestelle beim [208][210][201][206][212]-[194][197][198][197][200][204] bestimmt
  148. 1223 :
  149. 1224 "atnls letztes wird gezeigt, wie man den
  150. 1225 "[208][210][201][206][212]-[194]efehl in einen [204][207][197][211][195][200]-[194]efehl
  151. 1226 "umwandeln kann, mit poke19,1.
  152. 1233 :
  153. 1239 :
  154. 1240 :
  155. 1244 :print"[147] [211]teuerzeichen bei print:":a=-1251:e=1265:gosub900
  156. 1245 :print"[147] [193]usgabe mit list:":a=-1270:e=1289:gosub900:
  157. 1246 :
  158. 1247 :return:
  159. 1250 "
  160. 1251 "str$urch die (NULL)erwendung von (NULL)teuerzei-
  161. 1252 "chen kann die [198]arbe und das [193]ussehen
  162. 1253 "der (NULL)eichen bestimmt werden.
  163. 1254 "[196]abei sind bis zu 16 verschiedene
  164. 1255 "ascarben moeglich.
  165. 1256 :
  166. 1257 "[205]it [211]teuerzeichen kann man ausserdem
  167. 1258 "noch die (NULL)telle der atnusgabe bestimmen
  168. 1259 :
  169. 1260 "[193]usserdem kann man zwischen
  170. 1261 "(NULL)eichensatz 1 und 2 umschalten oder
  171. 1262 "die [218]eichen revers ausgeben lassen.
  172. 1263 :
  173. 1264 "atnuch das (NULL)oeschen des peekildschirms
  174. 1265 "ist mit einem [211]teuerzeichen moeglich.
  175. 1266 :
  176. 1268 :
  177. 1270 "(NULL)it dem (NULL)ist-(NULL)nterprogramm kann man
  178. 1271 "[194]asic-[218]eilen als [204]isting ausgeben.
  179. 1272 :
  180. 1273 "(NULL)an braucht bloss eine (NULL)eilennummer
  181. 1274 "und ein [200]ochkomma einzugeben, und
  182. 1275 "schon kann man den peekasic-valditor als
  183. 1276 "[212]extverarbeitung nutzen.
  184. 1277 :
  185. 1278 "chr$ibt man bei (NULL)ariable a eine negative
  186. 1279 "[218]ahl an, wird das [204]isting ohne
  187. 1280 "(NULL)eilennummern ausgegeben.
  188. 1297 :
  189. 1298 :
  190. 1299 :
  191. 1300 :rem==============================
  192. 1301 :rem   text: eingaben machen
  193. 1302 :rem==============================
  194. 1303 :print"[147] [197]ingaben machen:"
  195. 1304 :a=-1311:e=1331:gosub910:a=1332:e=a:gosub900:
  196. 1306 :print"[147] [197]ingaben machen:":a=-1340:e=1369:gosub900:
  197. 1308 :print"[147] [197]ingaben machen:":a=-1370:e=1389:gosub900
  198. 1309 :return:
  199. 1310 :
  200. 1311 "[201]n diesem [203]ursteil werden die ver-
  201. 1312 "schieden (NULL)oeglichkeiten der valingabe
  202. 1313 "mit [199][197][212] oder [201][206][208][213][212]-[194]efehl gezeigt.
  203. 1314 "(NULL)iest der chr$val(NULL)-peekefehl nur genau ein
  204. 1315 "[218]eichen, kann man mit [201][206][208][213][212] [218]ahlen
  205. 1316 "und (NULL)eichenketten bis zu 80 (NULL)eichen
  206. 1317 "eingeben.
  207. 1319 "str$a der right$nput-peekefehl jedoch str$oppel-
  208. 1320 "[208]unkt, [211]emikolon und [203]omma als [212]renn-
  209. 1321 "nungszeichen auffaesst, kann er diese
  210. 1322 "nicht lesen.
  211. 1323 "str$afuer braucht man dann ein right$(NULL)(NULL)(NULL)(NULL)
  212. 1324 "mit [211]onderzeichen.
  213. 1325 :
  214. 1326 "str$as ?-(NULL)eichen beim right$nput peekefehl kann
  215. 1327 "man uebrigens mit poke19,1 abstellen.
  216. 1328 "(NULL)m ascehlermeldungen zu vermeiden,
  217. 1329 "empfielt es sich die einzugebenen
  218. 1330 "(NULL)ariablen vorher mit print auszugeben.
  219. 1332 :a=10:printtab(7)a;:poke211,3:poke19,1:input"ein:";a:poke19,0:return:
  220. 1333 :
  221. 1334 :
  222. 1340 "[200]ier wird ein [204]isting gezeit, das in
  223. 1341 "nur 10 (NULL)eilen ein (NULL)len-right$(NULL)(NULL)(NULL)(NULL) simmuliert.
  224. 1342 "[218]uerst wird ein [195]ursor-[211]prite in-
  225. 1343 "stalliert, dann die valingabeschleife
  226. 1344 "aufgerufen.
  227. 1345 :
  228. 1346 "(NULL)it diesem (NULL)isting ist der (NULL)eg zu
  229. 1347 "einem programmierbarem [201][206][208][213][212] frei.
  230. 1370 "(NULL)it dem (NULL)rogamm mid$(NULL)(NULL)+(NULL)atn(NULL)(NULL)val(NULL), kann
  231. 1371 "ein [202]oystick der [215]ahl und die
  232. 1372 "(NULL)astatur gleichzeitig abgefragt
  233. 1373 "werden.
  234. 1374 "(NULL)ogar die atnbfrage von (NULL)ort1, der
  235. 1375 "[212]astatur-[211]teuerzeichen erzeugt, ist
  236. 1376 "nun moeglich.
  237. 1398 :
  238. 1399 :
  239. 1400 :rem==============================
  240. 1401 :rem   text: daten ablegen
  241. 1402 :rem==============================
  242. 1403 :
  243. 1404 :print"[147] [196]aten-[194]ehandlung"
  244. 1405 :a=-1411:e=1433:gosub900:return:
  245. 1407 :
  246. 1410 "
  247. 1411 "left$ier wird die (NULL)erwendung von (NULL)valatnstr$ und
  248. 1412 "[196][193][212][193]-[194]efehl gezeigt.
  249. 1413 :
  250. 1414 "(NULL)it (NULL)val(NULL)(NULL)(NULL)(NULL)val kann der str$atn(NULL)atn-(NULL)eiger
  251. 1415 "jedoch nur auf den [208]rogrammanfang
  252. 1416 "gestellt werden.
  253. 1417 :
  254. 1418 "[196]as gezeigte [204]isting erlaubt nun den
  255. 1419 "wahlfreien (NULL)ugriff auf str$ata (NULL)eilen.
  256. 1420 "[196]adurch kann [210][197][193][196]/[196][193][212][193] nun zum
  257. 1421 "(NULL)ulti-(NULL)allent werden.
  258. 1422 :
  259. 1430 "[196]adurch, dass die [204]()-[198]unktion die
  260. 1431 "(NULL)eilenadresse liefert, ist jetzt
  261. 1432 "sogar eine [198]eststringverwaltung in
  262. 1433 "str$atn(NULL)atn-(NULL)valright$(NULL)val(NULL) moeglich."
  263. 1434 :
  264. 1435 :
  265. 1500 :[143]==============================
  266. 1501 :[143]   text: string operationen
  267. 1502 :[143]==============================
  268. 1503 :[153]"load (NULL)tring-(NULL)perationen:"
  269. 1504 :a[178][171]1510:e[178]1522:[141]900:
  270. 1506 :[153]"load (NULL)tring-(NULL)perationen:"
  271. 1507 :a[178][171]1540:e[178]1569:[141]900:[142]:
  272. 1509 :
  273. 1510 "left$ier werden die (NULL)(NULL)atn(NULL)str$atn(NULL)str$-(NULL)(NULL)(NULL)right$(NULL)chr$-
  274. 1511 "[207][208][197][210][193][212][201][207][206][197][206] gezeigt:
  275. 1512 "(NULL)tring eingeben/loeschen, (NULL)eit lesen,
  276. 1513 "[204]aenge bestimmen,[193][211][195][201][201]-[218]eichen lesen/
  277. 1514 "bilden oder (NULL)eilstrings auslesen.
  278. 1515 :
  279. 1516 "[196]as [213]nterprogramm [211][212][210][201][206][199]-[199][197][206] zeigt,
  280. 1517 "wie man in (NULL)ekundenbruchteilen einen
  281. 1518 "[211]tring aufbaut.
  282. 1519 :
  283. 1520 "str$as (NULL)nterprogramm ascval(NULL)str$-(NULL)(NULL)val(NULL)lenleft$ loescht
  284. 1521 "in [211]ekundenbruchteilen alle
  285. 1522 "(NULL)ariablen-ascelder.
  286. 1530 :
  287. 1540 "[205]it [211]tings kann man noch mehr machen:
  288. 1541 :
  289. 1542 "(NULL)(NULL)chr$: (NULL)(NULL)(NULL)right$(NULL)chr$(NULL) (NULL)val(NULL)(NULL)val(NULL) und (NULL)val(NULL)val(NULL)
  290. 1543 " [200]iermit kann man einen [211]ting auf
  291. 1544 " einen (NULL)peicherbereich setzen.
  292. 1545 " [196]as [204]esen, [214]eraendern und [193]us-
  293. 1546 " fuehren von (NULL)ystemroutinen oder
  294. 1547 " [205]aschinencode-[211]trings wird damit
  295. 1548 " moeglich.
  296. 1549 :
  297. 1550 "[208][210][199]: [194][193][211][201][195]-[211][212][210][201][206][199],
  298. 1551 " erlaubt (NULL)trings als peekasic-lenode
  299. 1552 " auszufuehren.
  300. 1553 " str$emo 1 zeigt ein (NULL)ist-str$val(NULL)(NULL).
  301. 1554 " [196][197][205][207] 2 zeigt das [206]achladen und
  302. 1555 " starten eines (NULL)rogramms.
  303. 1598 :
  304. 1599 :
  305. 1600 :rem==============================
  306. 1601 :rem   text: nummerische rechnung
  307. 1602 :rem==============================
  308. 1603 :print"[147] [206]ummerische [210]echnung:":a=-1611:e=1632:gosub900
  309. 1605 :print"[147] [198]unktionen:"
  310. 1606 :a=-1640:e=1663:gosub900:return:
  311. 1608 :
  312. 1609 :
  313. 1610 "
  314. 1611 "chr$(NULL)(NULL)(NULL)str$-(NULL)vallenleft$val(NULL)atn(NULL)(NULL)val(NULL):
  315. 1612 "[200]ier wird  [208]lus,[205]inus,[205]al,[196]urch,[200]och,
  316. 1613 "(NULL)uadratwurzel und (NULL)ufallszahlen-
  317. 1614 "berechnung gezeigt.
  318. 1615 :
  319. 1616 "atnuch (NULL)right$(NULL)(NULL)val(NULL)-asc(NULL)(NULL)(NULL)(NULL)right$(NULL)(NULL)val(NULL), wie (NULL)inus,
  320. 1617 "[195]osinus,[212]angens und [193]rcustangens
  321. 1618 "hat der len64 als (NULL)tandardfunktionen.
  322. 1619 "[196]azu kommen noch [197][216][208][207][206][197][206][212][201][193][204] und
  323. 1620 "(NULL)(NULL)chr$val(NULL)right$(NULL)left$(NULL)(NULL)(NULL)-ascunktion zur peekasis val.
  324. 1621 :
  325. 1623 "[204][207][199][201][203] und [218][193][200][204]-[207][208][197][210][193][212][201][207][206][197][206]:
  326. 1624 :
  327. 1625 :[175]   : bits auslesen
  328. 1626 :[176]    : bits setzen
  329. 1627 :[168]() : bits negieren
  330. 1628 :invert: bits umdehen
  331. 1629 :e[176]   : bits mit maske umdrehen
  332. 1630 :[180]() : v[176]zeichen bestimmen
  333. 1631 :[181]() : komma [182]chneiden
  334. 1632 :[182]() : zahl [185]itiv machen
  335. 1633 :
  336. 1640 "ascunktion verkuerzen und vereinfachen
  337. 1641 "[208]rogramme und koennen viel leisten.
  338. 1643 "fn  k(): (NULL)orrigiert (NULL)echnungen
  339. 1644 "fn  r(): [210]undet [218]ahlen bis 2. [211]telle
  340. 1645 "fn  m(): berechnet (NULL)eilungs-(NULL)est
  341. 1646 "fn  p(): 2-[194]yte [218]ahl aus [211]peicher
  342. 1647 "fn  z(): erzeugt eine (NULL)ufallszahl
  343. 1648 "fn  j(): fragt den [202]oystick ab
  344. 1649 "fn  t(): fragt die (NULL)astatur ab
  345. 1650 "fn tt(): [212]astentabellen-[193]dresse
  346. 1651 "fn  c(): ermittelt lenursorposition
  347. 1652 "fn cp(): [218]eichen in [195]ursorposition
  348. 1653 "fn fa():(NULL)teuerzeichencode zu ascarbcode
  349. 1654 "fn ff(): [211]teuerzeichencode zu [198]arbe
  350. 1655 "fn sa(): (NULL)chirmcode zu atn(NULL)lenright$right$-lenode
  351. 1656 "fn as(): [193][211][195][201][201]-[195]ode zu [211]chirm-[195]ode
  352. 1657 "fn ba(): (NULL)icht-peekildschirm atndresse
  353. 1658 "fn zs(): [218]eichen-[193][196][210][197][211][211][197]([211]chirm-code)
  354. 1659 "fn br(): atnusgabe-(NULL)chirm atndresse
  355. 1660 "fn fs(): [198]arb-[211]peicher [193]dresse
  356. 1661 "fn  l(): peekasic-(NULL)eilen-atndresse
  357. 1662 "fn zn(): [194]asic-[218]eilen-[206]ummer
  358. 1663 "fn fr(): freier peekasic-(NULL)peicher
  359. 1697 :
  360. 1698 :
  361. 1699 :
  362. 1700 :rem==============================
  363. 1701 :rem   text: kanal behandlung
  364. 1702 :rem==============================
  365. 1703 :
  366. 1704 :print"[147] [203]anal-[194]ehandlung:"
  367. 1705 :a=-1710:e=1731:gosub900:return:
  368. 1706 :
  369. 1710 "[205]it [207][208][197][206],[195][204][207][211][197],[199][197][212]#,[201][206][208][213][212]#,[208][210][201][206][212]#
  370. 1711 "kann der len64 (NULL)ontakt zur atnussenwelt
  371. 1712 "aufnehmen.
  372. 1713 "str$as ist (NULL)astatur, (NULL)assettenlaufwerk,
  373. 1714 "[211]chirm, [196]rucker oder [196]iskette.
  374. 1715 "
  375. 1716 "[207][208][197][206]  : oeffnet den [197][201][206]/[193][213][211][199][193][194][197] [203]anal
  376. 1717 "len(NULL)(NULL)(NULL)val : schliesst einen (NULL)anal
  377. 1718 "[199][197][212]#  : holt ein [218]eichen
  378. 1719 "right$(NULL)(NULL)(NULL)(NULL)#: holt eine (NULL)ahl oder (NULL)tring
  379. 1720 "[208][210][201][206][212]#: schreibt  [218]ahl,[211]tring,[218]eichen
  380. 1733 "
  381. 1800 :rem==============================
  382. 1801 :rem   text: speicher operationen
  383. 1802 :rem==============================
  384. 1803 :print"[147] [211]peicher [207]perationen:":a=-1811:e=1831:gosub900
  385. 1805 :print"[147] [194]it [207]perationen:"
  386. 1806 :a=-1840:e=1861:gosub900
  387. 1808 :print"[147] [214]ideo-[205]odus:[146] ":a=-1870:e=1889:gosub900:
  388. 1809 :
  389. 1810 :return:
  390. 1811 "[205]it dem [208][207][203][197], [208][197][197][203]() und [211][217][211]-[194]efehl
  391. 1812 "kann der (NULL)peicher beschrieben,gelesen
  392. 1813 "oder ausgefuehrt werden.
  393. 1814 :
  394. 1815 "str$er (NULL)(NULL)(NULL)val-peekefehl beschreibt den
  395. 1816 "[211]peicher.
  396. 1817 "str$er (NULL)valval(NULL)()-peekefehl liest den (NULL)peicher.
  397. 1818 :
  398. 1819 "[205]it dem [211][217][211]-[194]efehl kann man [211]ystem-
  399. 1820 "und (NULL)aschinenprogramme ausfuehren.
  400. 1821 :
  401. 1822 "[196]ie [211]peicherstellen 780-783 ent-
  402. 1823 "sprechen in (NULL)aschinensprache den
  403. 1824 "[210]egistern [193][203][203][213][205][213][204][193][212][207][210], [216]-[210][197][199][201][211][212][197][210],
  404. 1825 "(NULL)-(NULL)valchr$right$(NULL)(NULL)val(NULL) und (NULL)(NULL)atn(NULL)(NULL)(NULL)-(NULL)valchr$right$(NULL)(NULL)val(NULL).
  405. 1833 :
  406. 1834 :
  407. 1840 "[205]it [207][210],[193][206][196] und [206][207][212] werden [194]its ge-
  408. 1841 "setzt, geloescht oder umgedreht:
  409. 1842 :
  410. 1849 "[204]isting([218].10) zeigt wie man eine
  411. 1850 "10ner-(NULL)ahl als eine binaere 2er-(NULL)ahl
  412. 1851 "ausgeben kann.
  413. 1852 "(NULL)andelt man das (NULL)rogramm etwas ab,
  414. 1853 "kann man auch [218]eichensatzdaten als
  415. 1854 "chr$ross-(NULL)chrift ausgeben.
  416. 1859 :
  417. 1860 "[196]ie [204]istings([218].15-18) zeigen, wie man
  418. 1861 "peekits setzt oder loescht.
  419. 1862 :
  420. 1863 :
  421. 1870 "[201]n dem [214]ideo-[205]odus [204]isting wird
  422. 1871 "gezeigt, wie die verschiedenen
  423. 1872 "[194]ildschirm-[205]odi einstellt werden.
  424. 1873 :
  425. 1874 "-(NULL)ideo-(NULL)odus-(NULL)isting:
  426. 1875 "[205]an kann zwischen [206]ormal-16 [198]arben,
  427. 1876 "left$intergrund-ascarbmodus,
  428. 1877 "[205]ulticolormodus, [200]ires [199]rafikmodus
  429. 1878 "und (NULL)ulticolor-chr$rafik umschalten.
  430. 1879 :
  431. 1880 "-[205]it dem [198]arbwahl-[204]isting stellt man
  432. 1881 "die ascarben fuer left$intergrundfarbmodus
  433. 1882 "und [205]ulticolormodus ein.
  434. 1883 :
  435. 1884 "-(NULL)it dem (NULL)coll-(NULL)isting kann man
  436. 1885 "den [211]chirm bitweise verschieben oder
  437. 1886 "wackeln lassen.
  438. 1887 :
  439. 1888 "-[196]as [193]n/aus [204]isting schaltet den
  440. 1889 "(NULL)chirm des len64 an und aus.
  441. 1898 :
  442. 1899 :
  443. 1900 :rem==============================
  444. 1901 :rem   text: programm-struktur
  445. 1902 :rem==============================
  446. 1903 :
  447. 1904 :print"[147] [208][210][207][199][210][193][205][205]-[211][212][210][213][203][212][213][210][197][206]:"::a=-1910:e=1916:gosub900:
  448. 1905 :return:
  449. 1906 :
  450. 1909 :
  451. 1910 "[201]n diesem [208]rogrammteil wird gezeigt,
  452. 1911 "wie man (NULL)rogrammstrukturen aufbaut:
  453. 1912 :
  454. 1913 "[197]s werden [194]eispiele fuer [211]pruenge,
  455. 1914 "(NULL)erzweigungen, (NULL)chleifen, peekedingungen
  456. 1915 "und zur [208]rogrammbeendung mit [197][206][196]
  457. 1916 "oder (NULL)val(NULL)val(NULL)closegezeigt.
  458. 1997 :
  459. 1998 :
  460. 1999 :
  461. 3000 :rem==============================
  462. 3001 :rem  text: disketten-laufwerk
  463. 3002 :rem==============================
  464. 3003 :print"[147][196]isk-[204]aufwerk:[146]"
  465. 3004 :a=-3010:e=3040:gosub900:return:
  466. 3005 :
  467. 3010 "[205]it dem [196]isk-[204]aufwerk kann man [196]aten
  468. 3011 "laden und speichern.
  469. 3012 :
  470. 3013 "[204]isting 1 zeigt, wie man das
  471. 3014 "str$iskettenverzeichnis laedt und
  472. 3015 "ausgibt.
  473. 3016 :
  474. 3017 "(NULL)isting 2 zeigt, wie der ascehlerkanal
  475. 3018 "ausgelesen wird.
  476. 3019 "str$abei werden alle ascloppy-ascehler ab-
  477. 3020 "gefangen und angezeigt.
  478. 3098 :
  479. 3099 :
  480. 3100 :[143]==============================
  481. 3101 :[143]  text: laden und speichern
  482. 3102 :[143]==============================
  483. 3103 :[153]"load(NULL)aden und (NULL)peichern:"
  484. 3104 :a[178][171]3110:e[178]3120:[141]900
  485. 3105 :[153]"load(NULL)trings laden:"
  486. 3106 :a[178][171]3140:e[178]3145:[141]900:[142]:
  487. 3108 :
  488. 3109 :
  489. 3110 "(NULL)it dem gezeigten (NULL)istings kann man
  490. 3111 "nahezu alles [204]aden und [211]peichern.
  491. 3112 :
  492. 3113 "(NULL)an kann (NULL)peicherbloecke in den
  493. 3114 "[211]peicher laden oder speichern.
  494. 3115 :
  495. 3116 "str$as (NULL)isting peekasic-lenode lad/speichern
  496. 3117 "erlaubt es sogar [194]asic [208]rogramme,
  497. 3118 "(NULL)ariablen oder str$atas zu laden und
  498. 3119 "zu speichern.
  499. 3125 :
  500. 3126 :
  501. 3140 "str$as (NULL)isting (NULL)tring laden erlaubt
  502. 3141 "dem [193]nwender [211]peicherbloecke von
  503. 3142 "der (NULL)aenge 0-256 peekytes von str$iskette
  504. 3143 "zu laden.
  505. 3144 "str$abei wird der (NULL)tring (NULL)$ automatisch
  506. 3145 "auf den eingelesenen [211]tring gesetzt.
  507. 3146 "
  508. 3200 :rem==============================
  509. 3201 :rem  text: zeichensatz
  510. 3202 :rem==============================
  511. 3203 :print"[147][218]eichensatz:"
  512. 3204 :a=-3210:e=3237:gosub900:
  513. 3207 :print"[147][197]instellungen:"
  514. 3208 :a=-3240:e=3268:gosub900:return:
  515. 3209 :
  516. 3210 "[196]as gezeigte [204]isting uebertraegt
  517. 3211 "das peekval(NULL)(NULL)right$valpeek(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL)-(NULL)(NULL)(NULL) komplett in
  518. 3212 "das [210][193][205], der [211]chirm wird ins obere
  519. 3213 "(NULL)atn(NULL) verlegt.
  520. 3214 "[196]adurch ist das [193]endern von [194]etriebs-
  521. 3215 "systen und (NULL)eichsaetzen moeglich,
  522. 3216 "ohne den [194]asic-[211]peicher zu verringern.
  523. 3217 "vals wird sogar moeglich, das
  524. 3218 "[194][193][211][201][195]-[210][193][205] um 1k[194] zu vergroessern.
  525. 3219 "(NULL)om oberen (NULL)am aus kann man bis zu
  526. 3220 "8 [218]eichensaetze oder 240 [211]prites
  527. 3221 "verwalten.
  528. 3222 :
  529. 3223 "[205]it dem [204]isting [196]ata-[208]oke kann man
  530. 3224 "den (NULL)peicher beliebig aendern.
  531. 3225 "[218]ahlen >255 werden als [193]dresse,
  532. 3226 "(NULL)ahlen 0-255 werden als (NULL)ert,
  533. 3227 "[218]ahlen -1 - -255 werden als [193]dresse,
  534. 3228 "(NULL)ahlen <-255 werden als (NULL)(NULL)(NULL)-peekefehl
  535. 3229 "interpretiert.
  536. 3230 "str$ie (NULL)ahl -.1 bewirkt den atnbbruch.
  537. 3238 :
  538. 3239 :
  539. 3240 "[201]n diesem [212]eil wird
  540. 3241 "die (NULL)mschaltung des (NULL)eichensatzes
  541. 3242 "die [213]mschaltung des [194]ildschirm und
  542. 3243 "atnenderung der (NULL)peicherkonfiguration
  543. 3244 "gezeigt.
  544. 3245 "atnusserdem kann man den (NULL)chirm noch
  545. 3246 "nach 35840 verlegen und den
  546. 3247 "peekasic-(NULL)peicher beschraenken, was
  547. 3248 "z.[194]. bei [199]rafik [193]nwendungen in
  548. 3249 "diesem peekereich erforderlich ist.
  549. 3298 :
  550. 3299 :
  551. 3300 :rem==============================
  552. 3301 :rem 4:text: graphik
  553. 3302 :rem==============================
  554. 3303 :
  555. 3304 :print"[147][199]raphik:"
  556. 3305 :a=-3310:e=3342:gosub900:
  557. 3306 :print"[147][199]raphik:"
  558. 3307 :a=-3350:e=3377:gosub900:return:
  559. 3309 :
  560. 3310 "[200]ier werden verschiedene [208]rogramme
  561. 3311 "zur chr$rafikprogrammierung gezeigt.
  562. 3312 :
  563. 3313 "[199][210][193][198][201][203]-[204][207][197][211][195][200] loescht die [199]rafik-
  564. 3314 "peekitmap und das (NULL)ideo-ram. left$ierzu
  565. 3315 "wird das [203]opierprogramm [210]unter-[203]opie
  566. 3316 "verwendet.
  567. 3317 :
  568. 3318 "[199][210][193][208][200][201][203]-[195][207][206][198][201][199] laedt die noetigen
  569. 3319 "(NULL)ariablen. vals sind 4 verschiedene
  570. 3320 "[199]raphikadressen moeglich:
  571. 3321 "peekitmap ab 8192,24576,40960 und 57344
  572. 3322 "[194]ei den ersten dreien ist es noetig
  573. 3323 "den peekasic-(NULL)peicher zu beschraenken.
  574. 3324 "[194]ei den letzten beiden muss die
  575. 3334 "(NULL)peicher-(NULL)onfiguration beachtet
  576. 3335 "werden. (poke1,54:poke1,55)
  577. 3336 :
  578. 3340 "chr$(NULL)atn(NULL)left$right$(NULL)-valright$(NULL) schaltet die chr$raphik-
  579. 3341 "adresse um und setzt den
  580. 3342 "(NULL)ulticolormodus.
  581. 3346 :
  582. 3347 :
  583. 3350 "[199][210][193][208][200][201][203]-[211][212][210][201][206][199] schreibt einen
  584. 3351 "(NULL)tring in die chr$raphik peekitmap.
  585. 3352 "[196]ie [218]eicheninformationen werden dabei
  586. 3353 "aus dem (NULL)eichsatz gelesen und mittels
  587. 3354 "[211]tring-[203]opie in die [194]itmap gebracht.
  588. 3355 "vals koennen sogar (NULL)ulticolorzeichen
  589. 3356 "ausgeben werden.
  590. 3357 :
  591. 3360 "chr$(NULL)atn(NULL)left$right$(NULL)-(NULL)right$(NULL)right$val  zeichnet eine (NULL)inien-
  592. 3361 "folge in die [194]itmap.
  593. 3362 "(NULL)ach dem valingeben der right$nformationen
  594. 3363 "in das x(),y()-[198]eld werden die zuge-
  595. 3364 "hoerige (NULL)teigung und (NULL)oordinate
  596. 3365 "berechnet und dann mit [211][197][212]-[208][201][216][197][204]
  597. 3366 "in die peekitmap eingetragen.
  598. 3398 :
  599. 3399 :
  600. 3400 :rem==============================
  601. 3401 :rem 5:text: sortieren
  602. 3402 :rem==============================
  603. 3403 :print"[147][211]ortieren:"
  604. 3404 :a=-3410:e=3430:gosub900:return
  605. 3409 :
  606. 3410 "[198][197][204][196]-[198][213][197][204][204] loescht alle [198]elder und
  607. 3411 "dimmensioniert dann ein asceld mit
  608. 3412 "50 [197]lementen, das dann zufaellig ge-
  609. 3413 "gefuellt wird.
  610. 3414 :
  611. 3415 "[218][197][201][199][197][210]-[211][207][210][212] ist ein kleines [211]ortier-
  612. 3416 "programm, das das asceld sortiert.
  613. 3417 "[197]s ermoeglicht ein relativ schnelles
  614. 3418 "sortieren bei gleichzeitiger atnusgabe.
  615. 3419 "[208]ro ausgegebenen [211]tring findet nur
  616. 3420 "ein (NULL)tringtausch statt, wodurch der
  617. 3421 "[195]omputer selten zur [211]tring-
  618. 3422 "atnufraeumung verschwindet.
  619. 3423 :
  620. 3424 "[211][213][208][197][210]-[218][197][201][199][197][210]-[211][207][210][212] ist die verbesserte
  621. 3425 "(NULL)ariante von (NULL)eigersort.
  622. 3426 "[196]as von mir entwickelte [208]rogramm
  623. 3427 "erlaubt schnelles (NULL)ortieren bei
  624. 3428 "gleichzeitiger [193]usgabe, schnelles
  625. 3429 "atnusgeben bereits sortierter ascelder
  626. 3430 "und schnelles [197]infuegen.
  627. 3431 "
  628. 3498 :
  629. 3499 :
  630. 3500 :rem==============================
  631. 3501 :rem 6:text: schirm rollen
  632. 3502 :rem==============================
  633. 3503 :print"[147][211]chirm rollen:"
  634. 3504 :a=-3510:e=3531:gosub900:return:
  635. 3507 :
  636. 3509 :
  637. 3510 "[211][197][201][212][197][206]-[211][195][210][207][204][204]  rollt die ganze [194]ild-
  638. 3511 "schirmseite hoch und runter, und das
  639. 3512 "in [197]chtzeit. [196]amit kann man sogar
  640. 3513 "eine (NULL)crollende (NULL)extverabeitung
  641. 3514 "programmieren.
  642. 3515 :
  643. 3516 "(NULL)(NULL)(NULL)(NULL) left$(NULL)lenleft$/(NULL)(NULL)(NULL)(NULL)val(NULL) macht das selbe,
  644. 3517 "man kann jedoch die [193]nfangs und
  645. 3518 "valndzeile selbst bestimmen.
  646. 3519 :
  647. 3520 "[210][207][204][204] [204][201][206][203][211]/[210][197][195][200][212][211] rollt den [211]chirm
  648. 3521 "nach links oder rechts.
  649. 3522 "[196]er [212]rick beruht auf der [214]erwendung
  650. 3523 "der (NULL)teuerzeichen valright$(NULL)asc(NULL)valchr$ und (NULL)(NULL)val(NULL)lenleft$
  651. 3524 "([201][206][211][212],[196][197][204]).
  652. 3525 "ascalls str$oppelzeilen auf dem (NULL)chirm
  653. 3526 "sind, sollte vorher das [208]rogramm
  654. 3527 "(NULL)lenleft$right$(NULL)(NULL) right$(NULL)right$(NULL) aufgerufen werden.
  655. 3598 :
  656. 3599 :
  657. 3600 :rem==============================
  658. 3601 :rem 7:text: sprites
  659. 3602 :rem==============================
  660. 3603 :print"[147][211]prites:"
  661. 3604 :a=-3610:e=3630:gosub900:
  662. 3605 :print"[147][211]prites:"
  663. 3606 :a=-3640:e=3651:gosub900:return:
  664. 3608 :
  665. 3609 :
  666. 3610 "[211][208][210][201][212][197]-[197][201][206] ruft alle folgenden
  667. 3611 "(NULL)nterprogramme gleichzeitig auf.
  668. 3612 :
  669. 3613 "-[211][208][210][201][212][197] [208][207][211]: setzt das [211]prite auf
  670. 3614 "eine x(0-319),y(0-199) (NULL)osition.
  671. 3615 "-[211][208][210][201][212][197][160][193][206]: schaltet [211]prites an/aus,
  672. 3616 "bestimmt (NULL)rioritaet und setzt den
  673. 3617 "[204]ese-[194]lock(nb).
  674. 3618 "-(NULL)(NULL)(NULL)right$(NULL)val ascatn(NULL)peekval: bestimmt die ascarbe
  675. 3619 "und schaltet in den [205]ulticolormodus.
  676. 3620 "-(NULL)(NULL)(NULL)right$(NULL)valcloseval(NULL)(NULL)atn(NULL)str$: vergroessert oder
  677. 3621 "verkleinert das [211]prite.
  678. 3622 :
  679. 3623 "-(NULL)(NULL)(NULL)right$(NULL)val str$atn(NULL)atn: installiert ein (NULL)prite
  680. 3624 "und setzt den [211]priteblock.
  681. 3625 "-(NULL)(NULL)(NULL)right$(NULL)val (NULL)val(NULL)val(NULL): laesst alle (NULL)prites
  682. 3626 "verschwinden und setzt die [214]ariablen.
  683. 3627 "-(NULL)(NULL)(NULL)right$(NULL)val peekvalright$(NULL)val(NULL)(NULL): setzt und liest
  684. 3628 "[198]arbe, [205]ulticolor und [197][216][208][193][206][196].
  685. 3629 "-(NULL)(NULL)(NULL)right$(NULL)val chr$(NULL)valright$lenleft$(NULL)valright$(NULL)right$chr$:  setzt mehrere
  686. 3630 "[211]prites gleichzeitig nach [212]abelle.
  687. 3631 :
  688. 3632 :
  689. 3640 "(NULL)(NULL)(NULL)right$(NULL)val (NULL)(NULL)val(NULL)val(NULL)(NULL)(NULL)chr$:
  690. 3641 :
  691. 3642 "[218]eigt ein [204]isting zur [211]prite-
  692. 3643 "(NULL)teuerung.
  693. 3644 :
  694. 3645 "[206]ach der [201]nstallation wird das [211]prite
  695. 3646 "auf seine (NULL)osition gesetzt.
  696. 3647 "[196]anach findet die [193]bfrage des [202]oy-
  697. 3648 "stick statt.
  698. 3649 "[213]nter [214]erwendung eines [208]arameters
  699. 3650 "wird dann die neue (NULL)prite-(NULL)osition
  700. 3651 "berechnet und gesetzt.
  701. 3698 :
  702. 3699 :
  703. 3700 :[143]==============================
  704. 3701 :[143] 8:text: sound und musik
  705. 3702 :[143]==============================
  706. 3703 :
  707. 3704 :[153]"load(NULL)on-atnusgabe:"
  708. 3705 :a[178][171]3710:e[178]3737:[141]900:[142]:
  709. 3706 :[153]"load(NULL)on-atnusgabe:wait  str$emo(f1)"
  710. 3707 :a[178]100:e[178]125:[141]900:
  711. 3708 :[142]:
  712. 3709 :
  713. 3710 "right$m ersten (NULL)eil werden die verschieden
  714. 3711 "[210]egister des [195]64 beschrieben, die
  715. 3712 "zur (NULL)on-atnusgabe noetig sind.
  716. 3713 :
  717. 3714 "[196]annach folgt ein [205]odul, das mittels
  718. 3715 "(NULL)ariablen alle (NULL)egister und die drei
  719. 3716 "[211]timmen des [195]64 ansprechen kann.
  720. 3717 :
  721. 3718 "valin str$emo zeigt, wie es sich anhoeren
  722. 3719 "kann.
  723. 3798 :
  724. 3799 :
  725. 3800 :[143]==============================
  726. 3801 :[143] 9:text: kopieren
  727. 3802 :[143]==============================
  728. 3803 ::[153]"load(NULL)opieren:"
  729. 3804 :a[178][171]3810:e[178]3837:[141]900:
  730. 3805 ::[153]"load(NULL)opieren:"
  731. 3806 :a[178][171]3840:e[178]3867:[141]900:[142]:
  732. 3809 :
  733. 3810 "(NULL)it (NULL)opierprogrammen kann man
  734. 3811 "[211]peicherbereiche, [199]rafik oder [218]eichen
  735. 3812 "verschieben, loeschen oder rollen.
  736. 3813 "[211]ogar ein [194]itmap-[210]ollen wird moeglich.
  737. 3819 "valright$(NULL)(NULL)val(NULL)(NULL)(NULL)(NULL)right$val: uebertraegt einen
  738. 3820 "beliebig grossen [211]peicherbereich
  739. 3821 "mittels (NULL)valval(NULL) und (NULL)(NULL)(NULL)val.
  740. 3822 :
  741. 3823 "[211][212][210][201][206][199] [201][206] [211][208][197][201][195][200][197][210]: schreibt einen
  742. 3824 "(NULL)tring ab atndresse(a) in den (NULL)peicher.
  743. 3825 :
  744. 3826 "[212][193][211][212][197][206][208][213][198][198][197][210]: [211]chreibt einen [211]tring
  745. 3827 "in den (NULL)astaturpuffer, der nach
  746. 3828 "einem [197][206][196] ausgefuehrt wird.
  747. 3829 :
  748. 3830 "(NULL)(NULL)(NULL)right$(NULL)chr$-len(NULL)(NULL)(NULL): kopiert einen (NULL)peicher-
  749. 3831 "bereich mit [204]aenge bis 255 [194]yte.
  750. 3838 :
  751. 3839 :
  752. 3840 "left$(NULL)lenleft$-(NULL)(NULL)(NULL)right$val: uebertraegt einen
  753. 3841 "beliebig grossen [211]peicherbereich.
  754. 3842 "(NULL)it dem vorgeschalteten (NULL)rogramm
  755. 3843 "koennen auch die [218]eichensatzdaten
  756. 3844 "gelesen und uebertragen werden.
  757. 3845 :
  758. 3846 "[210][213][206][212][197][210]-[203][207][208][201][197]: kopiert beliebige
  759. 3847 "(NULL)peicherbereiche.
  760. 3848 "[196]a das [208]rogramm fuer [194]asic etwas
  761. 3849 "geaendert werden muss, muss man es
  762. 3850 "vorher in einem anderem [194]ereich,
  763. 3851 "z.peek. (NULL)assettenpuffer, installieren.
  764. 3852 :
  765. 3853 "[213][211][210]-[210][193][205]-[208][197][197][203]: erlaubt den [194]lick unter
  766. 3854 "das (NULL)(NULL)(NULL) mittels (NULL)(NULL)(NULL)-ascunktion.
  767. 3855 :
  768. 3856 "[210][193][205]-[211][208][210][213][206][199]: ist ein [205]aschinenpro-
  769. 3857 "gramm, das zuerst die (NULL)onfiguration
  770. 3858 "(poke1,48) umschaltet und dann
  771. 3859 "ein (NULL)aschinenprogramm aufruft.
  772. 3860 "[196]adurch kann der [211]peicher unterm [210][207][205]
  773. 3861 "von peekasic aus genutzt werden.
  774. 3870 "[205]it [210][193][205]-[211][208][210][213][206][199] und [210][193][205]-[208][197][197][203] kann der
  775. 3871 "(NULL)peicher unter dem peeketriebsstem-(NULL)(NULL)(NULL),
  776. 3899 :
  777. 3900 :rem==============================
  778. 3901 :rem  text: speicher-bereiche
  779. 3902 :rem==============================
  780. 3903 :print"[147][195]64 [211]peicher-[193]ufbau:"
  781. 3904 :a=-3910:e=3931:gosub900:return:
  782. 3908 :
  783. 3909 :
  784. 3910 "[200]ier wird der [211]peicheraufbau des [195]64
  785. 3911 "dargestellt.
  786. 3912 "[196]ie verschiedenen [203]onfigurationen des
  787. 3913 "(NULL)peichers werden in (NULL)peicherstelle 1
  788. 3914 "ungeschaltet.
  789. 3915 :
  790. 3916 "vals werden auch alle sonstigen (NULL)eiger,
  791. 3917 "wie:
  792. 3918 :
  793. 3919 "- (NULL)rogramm-atnnfang/valnde
  794. 3920 "- [214]ariablen-[193]nfang/[197]nde
  795. 3921 "- asceld-atnnfang/valnde
  796. 3922 "- [211]tring-[193]nfang/[197]nde
  797. 3923 "- (NULL)chirm-atndresse
  798. 3924 "- [198]arb-[211]peicher-[193]dresse
  799. 3925 "- (NULL)eichsatz-atndresse
  800. 3926 :
  801. 3927 "gezeigt, so dass man sich einen
  802. 3928 "valindruck vom der (NULL)peicherverwaltung
  803. 3929 "des [195]64 machen kann.
  804. 3948 :
  805. 3949 :
  806. 5000 :[143]==============================
  807. 5001 :[143]
  808. 5002 :[143]  menue und textaufruf
  809. 5003 :[143]==============================
  810. 5004 :
  811. 5009 :[141]9999:[143]-test
  812. 5010 :[153]"load"
  813. 5011 :[153]"tan(NULL)tanstr$irk peekreitingertan(NULL)tan  ascrei-(NULL)oft(2002)"
  814. 5012 :[153]"-- (NULL)ommentar zum peekasic-(NULL)urs 1.1 ---"::[141]50
  815. 5018 :
  816. 5020 :r$[178][199](13):[150][165]p(a)[178][194](a)[170][194](a[170]1)[172]256:
  817. 5098 :
  818. 5099 :
  819. 5100 :[143]---seitenaufbau menue1
  820. 5101 :[151]53281,12:[151]53280,5
  821. 5102 :[153]"loadpeekasic-(NULL)urs:  (NULL)ommentar    wait"wl"":a[178]2
  822. 5110 :[153][163]a)"( 1 ) valinfuehrung"
  823. 5120 :[153][163]a)"( 2 ) chr$rundlagen"
  824. 5130 :[153][163]a)"( 3 ) atnusgabe mit (NULL)rint
  825. 5140 :printtab(a)"( 4 ) [197]ingaben machen
  826. 5150 :[153][163]a)"( 5 ) str$aten-peekehandlung
  827. 5160 :printtab(a)"( 6 ) [211]tring-[207]perationen
  828. 5170 :[153][163]a)"( 7 ) (NULL)umerische (NULL)perationen
  829. 5180 :printtab(a)"( 8 ) [203]anal [194]ehandlung
  830. 5190 :[153][163]a)"( 9 ) (NULL)peicher (NULL)perationen
  831. 5195 :printtab(a)"( 0 ) [208]rogramm-[211]trukturen
  832. 5196 :[151]214,24:[153]"on""str$:str$ruck (NULL):(NULL)peichern val:valdit"[163]28)">>>> weiter";
  833. 5198 :
  834. 5199 :
  835. 5497 :
  836. 5498 :
  837. 5499 :
  838. 5500 :[143]---tasten
  839. 5501 :[141]902:[139]a[178]95[167]:[138]:
  840. 5502 :[139]a[178]17[176]a[178]29[176]a[178]145[167]:wl[178]0:[137]6000
  841. 5506 :
  842. 5507 ::[145][171](a[178]32)[137]5510:[139]a[178]13[167]:wl[178](wl[170]1)[172][171](wl[179]10):[137]5510
  843. 5508 :b[178]a[171]48:[139]b[179].[176]b[177]10[137]5100
  844. 5509 :wl[178]a[171]48:wl[178]wl[171](wl[178]0)[172]10:[139](wl[179].[176]wl[177]10)[167]:wl[178]0:[137]5100:
  845. 5510 :[139]wl[178]0[167]:wl[178]1
  846. 5511 :[145](wl)[141]1000,1100,1200,1300,1400,1500,1600,1700,1800,1900:[137]5100
  847. 5996 :
  848. 5997 :
  849. 5998 :
  850. 5999 :
  851. 6000 :[143]==============================
  852. 6001 :
  853. 6100 :[143]---seitenaufbau menue2
  854. 6101 :[151]53281,12:[151]53280,3
  855. 6102 :[153]"loadpeekasic-(NULL)urs: (NULL)ommentar   wait"wl"":a[178]2:
  856. 6110 :[153][163]a)"( 1 ) str$isk-(NULL)aufwerk
  857. 6120 :printtab(a)"( 2 ) [204]aden und [211]peichern
  858. 6130 :[153][163]a)"( 3 ) (NULL)eichensatz
  859. 6140 :printtab(a)"( 4 ) [199]raphik
  860. 6150 :[153][163]a)"( 5 ) (NULL)ortieren
  861. 6160 :printtab(a)"( 6 ) [211]chirm-[210]ollen
  862. 6170 :[153][163]a)"( 7 ) (NULL)prites
  863. 6180 :printtab(a)"( 8 ) [211]ound und [205]usik
  864. 6190 :[153][163]a)"( 9 ) (NULL)opieren
  865. 6195 :printtab(a)"( 0 ) [211]peicher-[194]ereiche
  866. 6196 :[151]214,24:[153]"on""str$:str$ruck (NULL):(NULL)peichern val:valdit"[163]28)">>>> weiter";
  867. 6198 :
  868. 6199 :
  869. 6497 :
  870. 6498 :
  871. 6499 :
  872. 6500 :[143]---tasten
  873. 6501 :[141]902
  874. 6506 :[139]a[178]145[176]a[178]17[176]a[178]29[167]:wl[178]0:[137]5100
  875. 6507 :[145][171](a[178]32)[137]6510:[139]a[178]13[167]:wl[178](wl[170]1)[172][171](wl[179]10):[137]6510
  876. 6508 :b[178]a[171]48:[139]b[179].[176]b[177]10[137]5100:
  877. 6509 :wl[178]a[171]48:wl[178]wl[171](wl[178]0)[172]10:[145][171](wl[179].)[137]6500:
  878. 6510 :[139]wl[178].[167]:wl[178]1:[143]---aufruf
  879. 6511 :[145](wl)[141]3000,3100,3200,3300,3400,3500,3600,3700,3800,3900:[137]6100
  880. 9999 :[142]:
  881.